﻿
Public Class CTPartidaAjuste

Private _PartidaAjusteID            As Long
Private _PartidaSolicitudId         As Long
Private _PartidaEJId                As Long
Private _TipoCantidadId             As Byte
Private _TipoCantidad               As String   
Private _CantidadAjus               As Decimal
Private _FecCreacion                As Date
Private _FecAplicacion              As Date
Private _Estatus                    As enumEstatusPAJ
Private _EstatusValor               As String
Private _Comentario                 As String

Private _SeleccionEJ                As Boolean

Private _CatalogoTipoCantidadID As Integer = 4
Private _CatalogoEstatusID      As Integer = 10

Public Enum enumEstatusPAJ
   CREADA       = 1   
   ENVIADA      = 2
   APLICADA     = 3
   CANCELADA    = 4 
   CANCELADA_ACEPTADA = 5
End Enum



Public Sub new  ()

End Sub




Public Property PartidaAjusteID() As Long
    Get
        Return _PartidaAjusteID 
    End Get
    Set(ByVal value As long)
        _PartidaAjusteID = value
    End Set
End Property

Public Property PartidaSolicitudId() As Long
    Get
        Return _PartidaSolicitudId 
    End Get
    Set(ByVal value As long)
        _PartidaSolicitudId = value
    End Set
End Property

Public Property PartidaEJId() As Long
    Get
        Return _PartidaEJId 
    End Get
    Set(ByVal value As Long)
        _PartidaEJId = value
    End Set
End Property

Public Property TipoCantidadId() As Byte
    Get
        Return _TipoCantidadId 
    End Get
    Set(ByVal value As Byte)
        _TipoCantidadId = value
    End Set
End Property

Public Property TipoCantidad() As String
    Get
        Return _TipoCantidad 
    End Get
    Set(ByVal value As String)
        _TipoCantidad = value
    End Set
End Property

Public Property CantidadAjus() As Decimal
    Get
        Return _CantidadAjus 
    End Get
    Set(ByVal value As Decimal)
        _CantidadAjus = value
    End Set
End Property

Public Property FecCreacion() As Date
    Get
        Return _FecCreacion 
    End Get
    Set(ByVal value As date)
        _FecCreacion = value
    End Set
End Property

Public Property FecAplicacion() As date
    Get
        Return _FecAplicacion 
    End Get
    Set(ByVal value As Date)
        _FecAplicacion = value
    End Set
End Property

Public Property Estatus() As enumEstatusPAJ
    Get
        Return _Estatus 
    End Get
    Set(ByVal value As enumEstatusPAJ)
        _Estatus = value
    End Set
End Property

Public Property EstatusValor() As String
    Get
        Return _EstatusValor
    End Get
    Set(ByVal value As String)
        _EstatusValor = value
    End Set
End Property

Public Property Comentario() As String
    Get
        Return _Comentario
    End Get
    Set(ByVal value As String)
        _Comentario = value
    End Set
End Property



Public Property SeleccionEJ() As Boolean
    Get
        Return _SeleccionEJ
    End Get
    Set(ByVal value As Boolean)
        _SeleccionEJ = value
    End Set
End Property

Public ReadOnly Property CatalogoTipoCantidadID() As Integer

    Get
        Return _CatalogoTipoCantidadID
    End Get

End Property

Public ReadOnly Property CatalogoEstatusID() As Integer

    Get
        Return _CatalogoEstatusID
    End Get

End Property

Public Overrides Function ToString() As String

        Return "idPAJ:" & _PartidaAjusteID.ToString() & ",idPS:" & _PartidaSolicitudId & ",idPEJ:" & _PartidaEJId & ",CantidadAjus:" & _CantidadAjus.ToString()
End Function

End Class
